                            ->     Information ..     <-
                            -> Server Irc.WeArab.Net  <-
                            -> Join #             <-
                            -> By - ThrB , Fahed      <-
                            -> E-mail; xFahed@mSn.cOm <-


on @1:text:*:#:{
  if ($nick !isvo #) && ($nick !isop #) && ($len($strip($1-)) > 250) {
    mode # +b $wildsite
    kick # $nick Long text
  }
  if ($nick !isvo #) && ($nick !isop #) {
    if (%repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] = $strip($1-)) {
      inc -u10 %repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] 
      if (%repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 1) {
        mode # +b $wildsite 
        kick # $nick Repeating
      }
    }
    else { set -u6 %repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] $strip($1-) }
  } 

  if ($nick !isvo #) && ($nick !isop #) {
    set %i $gettok($1-,0,32)
    while (%i) {
      if ($len($gettok($1-,%i,32)) = 7) && ($gettok($1-,%i,32) isnum) { 
        mode # +b $wildsite
        kick # $nick Phone number
      }
      dec %i
    }
  }
}

on @1:action:*:#:{
  if ($nick !isvo #) && ($nick !isop #) && ($len($strip($1-)) > 250) {
    mode # +b $wildsite
    kick # $nick Long text
  }
  if ($nick !isvo #) && ($nick !isop #) {
    if (%repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] = $strip($1-)) {
      inc -u10 %repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] 
      if (%repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 1) {
        mode # +b $wildsite 
        kick # $nick Repeating
      }
    }
    else { set -u6 %repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] $strip($1-) }
  } 

  if ($nick !isvo #) && ($nick !isop #) {
    set %i $gettok($1-,0,32)
    while (%i) {
      if ($len($gettok($1-,%i,32)) = 7) && ($gettok($1-,%i,32) isnum) { 
        mode # +b $wildsite
        kick # $nick Phone number
      }
      dec %i
    }
  }
}
